﻿Public Class PublicacionFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta de la Publicación")
        Me.codigo = Utils.Enumeradores.Excepeciones.PublicacionFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta de la Publicación"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class PublicacionFalloEditar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la actualización de la Publicación")
        Me.codigo = Utils.Enumeradores.Excepeciones.PublicacionFalloEditar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la actualización de la Publicación"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class PublicacionFalloBaja
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja de la Publicación")
        Me.codigo = Utils.Enumeradores.Excepeciones.PublicacionFalloEliminar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja de la Publicación"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class PublicacionFalloBuscar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la búsqueda de la Publicación")
        Me.codigo = Utils.Enumeradores.Excepeciones.PublicacionFalloBuscar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la búsqueda de la Publicación"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class PublicacionFalloConsultar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Publicacions")
        Me.codigo = Utils.Enumeradores.Excepeciones.PublicacionFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Publicacions"
        Me.innerException2 = innerException
    End Sub
End Class
